home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 11 Exotic Applications / KEYPAD.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  796 b   |  29 lines
  1. 100 READA
  2. 110 READB$:IFB$="*"THEN100
  3. 120 IFB$="**"THEN300
  4. 130 V=VAL(B$):POKEA,V:A=A+1:Z=Z+V:GOTO110
  5. 300 IFZ<>18512THENPRINTCHR$(147);"ERROR IN DATA STATMENTS":END
  6. 301 SYS976
  7. 310 NEW
  8. 1040 DATA828
  9. 1050 DATA169,3,72,169,75,72,8,72,165,197
  10. 1060 DATA72,72,76,49,234,120,160,,165,203
  11. 1070 DATA201,64,208,88,169,255,141,,220,140
  12. 1080 DATA47,208,173,1,220,201,255,240,73,134
  13. 1090 DATA197,169,254,72,162,8,141,47,208,173
  14. 1100 DATA1,220,205,1,220,208,248,74,176,9
  15. 1110 DATA72,185,183,3,240,2,133,203,104,200
  16. 1120 DATA202,208,240,104,56,42,192,23,144,219
  17. 1130 DATA165,203,201,64,240,26,162,129,160,
  18. 1140 DATA144,8,41,127,133,203,162,194,160,1
  19. 1150 DATA169,235,140,141,2,134,245,133,246,32
  20. 1160 DATA224,234,169,255,141,47,208,32,66,235
  21. 1170 DATA76,129,234,,27,16,,59,11,24
  22. 1180 DATA56,,40,43,,1,19,32,8,
  23. 1190 DATA35,44,135,7,130,2,
  24. 1200 DATA*
  25. 1210 DATA976
  26. 1220 DATA120,169,60,141,20,3,169,3,141,21
  27. 1230 DATA3,88,96
  28. 1240 DATA**
  29.